home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -seriously_amiga- / shareware / sound / mrmpeg / stop.rexx < prev    next >
OS/2 REXX Batch file  |  1997-12-01  |  564b  |  22 lines
  1. /* Stop.rexx */
  2.  
  3. options results; address MrMPEG
  4.  
  5. MUIA_Disabled        = 0x80423661;    MUIA_NoNotify        = 0x804237f9
  6. MUIA_Selected        = 0x8042654b;    MUIA_Slider_Level    = 0x8042ae3a
  7.  
  8. image ID STOP ATTRS MUIA_Disabled 1
  9. check ID PLAY
  10. if result = 1 then do
  11.   check ID PLAY ATTRS MUIA_Selected 0 MUIA_NoNotify 1
  12.   setvar stopped 1
  13.   address command 'Kill >NIL: MPEGA'
  14. end
  15. setvar current_song ""
  16. call setclip('MrMPEG_FLAG', 1)
  17. slider ID PROG ATTRS MUIA_Slider_Level 0
  18. /* setvar current_time '00:00'
  19. text ID CURNT LABEL "\033b\033r00:00" */
  20. image ID STOP ATTRS MUIA_Disabled 0
  21. return
  22.